home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan 2 / Opus 5 - Magellan 2.iso / Extras / DDC / DoubleClick.dopus5 < prev   
Text File  |  1997-02-16  |  578b  |  38 lines
  1. /*
  2.  
  3.   $VER: DOpusDoubleClick 1.0 (15.02.97)
  4.  
  5.   AmigaDOS and ARexx script to similate DOpus Double Click from CLI. 
  6.  
  7.   ©1997 Robert Wilson
  8.  
  9. */
  10.  
  11. addlib('rexxtricks.library',0,-30,0)
  12.  
  13. address DOPUS.1
  14. options results
  15.  
  16. dir = GETENV('currentdir')
  17. name = GETENV('filename')
  18.  
  19. checkdir = PATHPART(fn)
  20. path = MAKEPATH(dir,name)
  21.  
  22. if name = "" then do
  23.     SAY 'required argument (filename) missing'
  24.     exit
  25. end
  26.  
  27. if dir = checkdir then do
  28.     command doubleclick name
  29.     UNSETENV('currentdir')
  30.     UNSETENV('filename')
  31.     exit
  32. end
  33.  
  34. command doubleclick path
  35. UNSETENV('currentdir')
  36. UNSETENV('filename')
  37. exit
  38.